home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / divers / presenta.sha < prev    next >
Text File  |  1994-03-01  |  506b  |  12 lines
  1. 1 REM W-TEL 24H/24
  2. 2 REM 62.93.74.05
  3. 10 ON ERROR GOTO 200:VAC
  4. 20 CLS:INPUT "Donnez le texte:",A$:CLS:A=LEN(A$):B=(32-A)/2:GOSUB 100
  5. 30 FOR X=1 TO A:LOCATE B,0:B=B+1:P$=MID$(A$,X,1):PRINT P$;:GOSUB 100:NEXT:LOCATE B,0:PRINT "."
  6. 50 GOTO 10
  7. 100 DEFCHR$(252)="0101FF0101"
  8. 110 DEFCHR$(253)="4121110905"
  9. 130 FOR I=1 TO 5
  10. 140 LOCATE B,0:PRINT "-";:LOCATE B,0:PRINT "/";:LOCATE B,0:PRINT CHR$(252);:LOCATE B,0:PRINT CHR$(253);:NEXT :RETURN :END
  11. 200 PRINT "Error,trop long";:FOR E=0 TO 300:NEXT :GOTO 10
  12.